Dim a As String * 255

aを255バイト固定の文字列型で宣言
足りないところはスペースがはいる