Option Explicit
Dim filenm As String, filenumber As String, b
Private Sub Form_Load()
If Right(App.Path, 1) = "\" Then
filenm = App.Path + "input.txt"
Else: filenm = App.Path + "\input.txt"
End If
filenumber = FreeFile
Open filenm For Input As #filenumber
Input #filenumber, b
Label1.Caption = b
Input #filenumber, b
Label2.Caption = b
Close #filenumber
End Sub
Получается: Label1.Caption="10", Labe2.Caption="12", вместо
Label1.Caption="10:11:43" и Label="12:12:36"
Как это исправить???
Заранее благодарен
