Low and Upper Case pada vb

‘add 2 command buttons and 1 text
Private Sub Command1_Click()
    Text1.Text = CapFirst$(Text1.Text) End Sub
Private Sub
Command2_Click()     Text1.Text = LCase$(Text1.Text) End Sub
‘add
1 module Declare Function CapFirst$ Lib “CAPFIRST.DLL” Alias
“CAPFIRST” (ByVal St$)