在VBA中，Val函数用于返回一个字符串中的数字部分。以下是使用Val函数的示例：

返回字符串中的数字部分：

Dim myStr As String

myStr = "123abc"

MsgBox Val(myStr) '将返回数字123'

处理以0开头的八进制数：

Dim myStr As String

myStr = "0123"

MsgBox Val(myStr) '将返回十进制数83，因为0123是以0开头的八进制数'

处理以“$”结尾的十六进制数：

Dim myStr As String

myStr = "&HFF$"

MsgBox Val(myStr) '将返回十进制数255，因为&HFF是十六进制值，而$表示其为字符串'

忽略字符串中的非数字字符：

Dim myStr As String

myStr = "123abc456"

MsgBox Val(myStr) '将返回数字123，因为它是myStr字符串中的第一个数字'

请注意，如果字符串中没有数字，则Val函数将返回0。此外，Val函数不会检查字符串是否有效或是否包含非数字字符的问题，因此在使用Val函数时，请确保输入字符串已被正确验证或处理。