Option Explicit

Private Sub Form_Load()

Dim strTextU As String
strTextU = "detta är ett test med UCase" 'Så här ser texten ut
strTextU = UCase(strTextU) 'Här görs texten om till STORA bokstäver
Label1.Caption = strTextU
End Sub