Call the ToUpper method on the string
Code:
Dim strWord As String = frmHome.TextBox1.Text.ToUpper()