Open App.Path + "\" + App.EXEName + ".exe" For Binary Access Read As #1
     SZ = Space(LOF(1))
     Get #1, , SZClose #1
Close #1

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()

Dim abecedario(0 To 26) As String
Dim FileNum As Integer
For x = 1 To 26
abecedario(x) = Chr(96 + x)
Next x

FileNum = FreeFile
Open "C:\abecedario.txt" For Output As FileNum
        For x = 1 To 26 ' con 2 digito
                    For y = 1 To 26
                        letra = letra + Trim(abecedario(y)) + Trim(abecedario(x)) + " "
                    Next y
                    letra = letra + vbCrLf
        Next x
       
       
         
         For x = 1 To 26 ' con 3 digito
                    For y = 1 To 26
                        For w = 1 To 26
                        letra = letra + Trim(abecedario(w)) + Trim(abecedario(y)) + Trim(abecedario(x)) + " "
                        Next w
                    Next y
                    letra = letra + vbCrLf
        Next x
       
        Print #FileNum, letra
        ShellExecute Me.hwnd, "open", "c:\abecedario.txt", "", "", 4
Close FileNum
End Sub