[mini]

用全域變數代入
比如

Dim sMsgText As String

Private Sub Form_Load()

    sMsgText = "啟動檔案時發生錯誤！    找不到啟動檔  'struptr_tw-b.bat'  或  'struptr_tw.bat'  ，請重新安裝程式後再試一次。"
End Sub

Private Sub Command1_Click()

    MsgBox sMsgText, vbCritical + vbOKOnly, "錯誤"
End Sub