***的解决方案是使用SPLIT

The best solution is using SPLIT

Dim strX As String
Dim sx() As String
Dim i as Integer
strX = "10FT x 20FT"
sx = Split(strX, "x")

或者你可以使用instr函数

Or maybe you can use instr function

Dim sVar1 as string
Dim sVar2 as string

I = InStr(1, strX, "x")

你知道哪里可以拆分两个变量

Now you know where can split int two variables

sVar1 = mid(strX, 1, I)
sVar2 = mid(strx,i+1)

该功能的问题是如果您在链中有多个键你要与其分开你的函数会返回一个更大的数组。
例如：
Dim var as string
var =x 20XP 10XP

The problem with the function is that if you have several keys in the chain with which you want to separate your function will return an array larger. For example: Dim var as string var = "x 20XP 10XP"

返回

array (0) = "10"
array (1) = "p"
array (2) = "20"
array (3) = "p"