Option Explicit

Public Function CountUppercaseCharacters(str As String) As Integer
Dim count As Integer
Dim i As Integer

count = 0
For i = 1 To Len(str)
If Asc(Mid(str, i, 1)) >= 65 And Asc(Mid(str, i, 1)) <= 90 Then
count = count + 1
End If
Next i
CountUppercaseCharacters = count

End Function

Sub Main()
Dim str As String
Dim result As Integer

str = "Hello World"
result = CountUppercaseCharacters(str)
MsgBox "Number of uppercase characters: " & result

End Sub