您可以使用VBA中的IsNumeric函數來判斷字符串是否含有數字。IsNumeric函數返回一個布爾值，如果字符串可以被解析為數字，則返回True，否則返回False。
以下是一個示例代碼，演示如何使用IsNumeric函數來判斷字符串是否含有數字：
Sub CheckStringForNumbers()
Dim inputString As String
Dim containsNumbers As Boolean
' 獲取用戶輸入的字符串
inputString = InputBox("請輸入一個字符串：")
' 判斷字符串是否含有數字
containsNumbers = IsNumeric(inputString)
' 顯示判斷結果
If containsNumbers Then
MsgBox "字符串含有數字。"
Else
MsgBox "字符串不含有數字。"
End If
End Sub
當運行這段代碼時，會彈出一個輸入框，讓用戶輸入一個字符串。然后代碼會判斷輸入的字符串是否含有數字，并通過消息框顯示判斷結果。
請注意，IsNumeric函數會將包含標點符號、小數點和貨幣符號的字符串也解析為數字。如果您只想判斷字符串是否只含有整數數字，可以使用其他方法，例如自定義函數或正則表達式。
