need help fixing it?

[dos5731]

Hi
Can you all help me fix it?
It done not print to the Listbox
Dim A As String
Private Sub Command1_Click()
End
End Sub

Private Sub List1_Click()
Open "C:\pos\bob\bob.txt" For Input As #1
Input #1, A
Close #1
List1.AddItem A
End Sub