Kod:
Private Sub Komut203_Click()
Dim clipboard As MSForms.DataObject
Set clipboard = New MSForms.DataObject
clipboard.GetFromClipboard
clipboard.SetText StrConv(clipboard.GetText, vbProperCase)
clipboard.PutInClipboard
MsgBox clipboard.GetText
End Sub