Code:
Private Sub Command1_Click()
Dim FileName As String
Dim FN As Long
Dim arrData() As Byte
FileName = Dir1.List(Dir1.ListIndex) & "\" & File1.FileName
FN = FreeFile
Open FileName For Binary Access Read As #FN
ReDim arrData(LOF(FN) - 1)
Get #FN, , arrData()
Close FN
End Sub
EXE je binarni fajl i ne mozes na ovaj nacin dobiti source kode. Sadzaj exe fajla ti se nalazi u arrData koji je byte array.
Za zamenu substringova koristi Replace funkciju.