Option Compare Database Option Explicit Private Sub コマンド0_Click() Dim hoge As String * 15 '固定長文字列変数の宣言 Debug.Print Len(hoge) '結果:15 Debug.Print "[" & hoge & "]" '結果:[ ] End Sub