не могу сделать програмки в Visual Basic 6

Option Explicit
 
Private Sub Form_Load()
    Dim Sum As Long, tSum As Long, I As Long, iM As Long, N As Long, Arr() As Long
    N = 10
    ReDim Arr(N - 1)
    iM = 0: Randomize
    Arr(0) = Int(Rnd * 100): tSum = Arr(0)
    For I = 1 To N - 1
        Arr(I) = Int(Rnd * 100)
        If Arr(I) > Arr(iM) Then
            iM = I: Sum = tSum
        End If
        tSum = tSum + Arr(I)
    Next
    If iM Then MsgBox "Сумма " & Sum Else MsgBox "Таких чисел нет"
End Sub

Option Explicit
 
Private Sub Form_Load()
    Dim a As Long, b As Long, c As Long, d As Long
    a = Int(Rnd * 10): b = Int(Rnd * 10): c = Int(Rnd * 10): d = Int(Rnd * 10)
    MsgBox IIf(a = b Or a = c Or a = d Or b = c Or b = d Or c = d, "Правда", "Неправда")
End Sub

Option Explicit
 
Private Sub Form_Load()
    Dim Text As String, i As Long, p As Long, w As Long
    Text = "Спой светик, не стыдись"
    Text = Text & " "
    i = 1: p = 1: w = 0
    Do Until i > Len(Text)
        Select Case Mid$(Text, i, 1)
        Case " ", ",", ".", "!", "?"
            If w <= i - p - 1 Then Text = Left$(Text, p + w) & _
                            Right$(Text, Len(Text) - p - w + 1): w = w + 1
            p = i + 1
        Case Else
        End Select
        i = i + 1
    Loop
End Sub