新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    MsgBox String$(6, "M")
End Sub

运行结果：

MMMMMM

String$(6, "Ma") 中的a不会重复。

放置chr(0)填充字符串可以采用。

String$(90, Chr$(0))