Membaca File Binary Dengan Visual Basic 6.0

Option Explicit

Private Sub Command1_Click()
    Open "C:\Documents and Settings\Admin\My Documents\Blogger VB6\Blogger\4basic-vb.xml" For Binary As #1
        Dim strBuff As String
        strBuff = Space(LOF(1))
        Get #1, , strBuff
    Close #1
    Text1.Text = strBuff
End Sub