VBA代码功能说明
该VBA代码定义了一个名为"mydata"的函数，该函数接受一个字符串参数，然后返回该字符串中第一个数字之后的所有数字部分，以浮点数形式返回。函数首先找到字符串中的第一个数字，然后提取该数字后的所有数字部分，将其转换为浮点数并返回。如果在字符串中找不到数字，则函数将返回0。
VBA代码注释说明
Function mydata(mystring As String) As Double '定义函数mydata，接受一个字符串参数，返回浮点数
Dim i As Integer '定义整型变量i
i = 1 '将i的值设置为1
Do Until Val(Mid(mystring, i, 1)) > 0 '循环直到mystring中的第一个数字的值大于0
i = i + 1 '递增i的值
Loop '循环结束
mydata = Val(Mid(mystring, i, Len(mystring) - i + 1)) '提取字符串中第一个数字后的数字部分，并将其转换为浮点数赋值给mydata
End Function '函数结束