Нужно переписать код в виде подпрограммы - процедуры, и затем вызвать ее

Sub qasd()
 
    Dim s(1 To 5) As String
    Dim lCount As Long
    Dim sResult As String
    Dim i As Long, j As Long
    
   
    For i = 1 To 5 Step 1
        s(i) = Cells(i, 1).Value
    Next i
    
  
    For i = 1 To 5 Step 1
        For j = 1 To Len(s(i)) Step 1
            If Mid(s(i), j, 1) = "a" Then
                lCount = lCount + 1
                
            End If
            
        Next j
        If lCount = 2 Then
            sResult = sResult & s(i) & ", "
            
        End If
        
        lCount = 0
    Next i
    MsgBox "Ñëåäóþùèå ñëîâà ñîäåðæàò äâå áóêâà a: " & vbCr & sResult
    
End Sub

Sub tt()
 
    Dim s()
    Dim lCount As Long, i As Long, j As Long
    Dim sResult As String
 
    s = Range("A1:A5").Value
 
    For i = 1 To 5
        lCount = 0
        For j = 1 To Len(s(i, 1))
            If Mid(s(i, 1), j, 1) = "a" Then lCount = lCount + 1
        Next
        If lCount = 2 Then sResult = sResult & ", " & s(i, 1)
    Next
    MsgBox "Следующие слова содержат две буква a: " & vbCr & Mid(sResult, 3)
 
End Sub

Sub start()
tt Range("A1:A5")
End Sub
 
 
Sub tt(r As Range)
 
    Dim s()
    Dim lCount As Long, i As Long, j As Long
    Dim sResult As String
 
    s = r.Value
 
    For i = 1 To 5
        lCount = 0
        For j = 1 To Len(s(i, 1))
            If Mid(s(i, 1), j, 1) = "a" Then lCount = lCount + 1
        Next
        If lCount = 2 Then sResult = sResult & ", " & s(i, 1)
    Next
    MsgBox "Следующие слова содержат две буква a: " & vbCr & Mid(sResult, 3)
 
End Sub

Sub tt()
 
    Dim s()
    Dim el
    Dim sResult As String
 
    s = Range("A1:A5").Value
 
    For Each el In s
        If Len(el) - Len(Replace(el, "a", "")) = 2 Then
            sResult = sResult & ", " & el
        End If
    Next
    MsgBox "Ñëåäóþùèå ñëîâà ñîäåðæàò äâå áóêâà a: " & vbCr & Mid(sResult, 3)
 
End Sub