Convert uppercase help in VB6

Hi all,
Thanks for helping e out for my last question. Hope u guys will help me out in this too. The following is my code. What i want to do is .... Ivresults.listitems are the results... i want to display all the results in Uppercase...

Private Sub cmdSearch_Click()
Dim Nodelist As IXMLDOMNodeList
Dim i As Long


On Error GoTo Err_Handler

Screen.MousePointer = vbHourglass

If Trim(txtSearch.Text) <> "" Then ' Only search if something entered

If optSearchType(0).Value = True Then

Set Nodelist = gSearchProducts(stCODE, txtSearch.Text)

ElseIf optSearchType(1).Value = True Then

Set Nodelist = gSearchProducts(stDESC, txtSearch.Text)

End If


lvResults.ListItems.Clear

If Nodelist.length > 0 Then
For i = 0 To Nodelist.length - 1
AddProductToList lvResults, Nodelist(i)
Next
If Nodelist.length > 1 Then
lblResults.Caption = Nodelist.length & " products found."
Else
lblResults.Caption = Nodelist.length & " product found."
End If
Else
lblResults.Caption = "0 products found."
End If

Set Nodelist = Nothing


Else
MsgBox "Please enter a search string before clicking the Search button.", vbInformation
End If

Screen.MousePointer = vbNormal

Exit Sub

Thanks.

Plz use ucase function to do it..
Simply code:
dim str1 as string
str1="Wait"
str1=ucase(str1)
msgbox str1
...