Option Explicit

Private Sub Form_Load()
Dim strText As String
strText = "DETTA ÄR ETT TEST MED LCase" 'Så här ser texten ut
strText = LCase(strText) 'Här görs texten om till små bokstäver
Label1.Caption = strText
End Sub