Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
fname = Application.GetOpenFilename()
Open fname For Binary As #1
For j = 1 To reclen
a1 = AscB(Input(1, #1))
h1 = Hex(a1)
If Len(h1) < 2 Then
h1 = "0" & h1
End If
hnum = hnum & h1
hst = hst & Chr(a1)
Next
out put as text