Option Explicit

Public Function GetCode(ByVal myFileName As String)

    Dim i As Long

    Dim n As Long

    Dim str1, str2, str3 As String

.............................................