'RESPOND : HALCAPITALS
If InStr(userinput, "WHAT") > 0 Or InStr(userinput, "WHERE") > 0 Then
If Len(halbrain.UsCaps(userinput)) > 4 Then
capitals = Trim(halbrain.UsCaps(userinput))
End If
If Len(halbrain.WorldCaps(userinput)) > 4 Then
capitals = Trim(halbrain.WorldCaps(userinput))
End If
If capitals <> "" Then
GeTResponse = GeTResponse & capitals & " . " & vbCrLf
SearchWords = ""
If SearchWords = "" Then SearchWords = halbrain.SearchPattern(UCase(capitals), "THE CAPITAL OF * IS *", 2)
path = "http://www.google.com/local?q=" + SearchWords
'NEEDED THE command to open webrowser & PATH
HalCommands = "<RUNPROG>" & path & "</RUNPROG>"
HalCommands = HalCommands
End If
End If