こういう方法もあります。Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(StrConv(Chr(KeyAscii), vbUpperCase))End Sub上の例では、入力時に常に大文字になります。