непонимаю как написать программы на Visual Basic

' 1. Разбираем число (слово) на символы и записываем в список
Private Form1_Load()
    Dim i as Integer    ' Переменная цикла
    Dim strWord As String   ' Переменная для числа (слова)
    Dim strSumbol As String ' Переменная для одиночных символов
    
    ' Считываем число (слово) из текстового поля
    strWord = Text1.Text
    ' Очищаем список
    List1.Clear
 
    For i = Len(strWord) To 1 Step -1
        ' Определяем символ
        strSumbol = Mid(strWord, i, 1)
        ' Записываем в список
        List1.AddItem strSumbol
    Next i
End If

' 2. Пробелируем ;) слово (число)
Private Form1_Load()
    Dim i as Integer    ' Переменная цикла
    Dim strWord As String   ' Переменная для заданного слова (числа)
    Dim strSumbol As String ' Переменная для одиночных символов
    Dim strText As String   ' Переменная для итоговой строки
    
    ' Считываем слово (число) из текстового поля
    strWord = Text1.Text
 
    For i = 1 to Len(strWord)
        ' Определяем символ
        strSumbol = Mid(strWord, i, 1) 
        ' Перезаписываем символы, дополняя пробелами
        strText = strText & strSumbol & " "
    Next i
    
    ' Итоговый результат
    strText = Trim(strText)
End If

Private Sub Form_Load()
Dim A As String, i As Integer
A = InputBox("Число")
For i = Len(A) To 1 Step -1
List1.AddItem Mid(CStr(A), i, 1)
Next i
End Sub

Dim a As String, a1 As String
a = InputBox("Slovo")
For i = 1 To Len(a)
a1 = a1 & Mid(a, i, 1) & " "
Next i
MsgBox a1