编写一个函数：

Private Function 转换(st As String) As Integer
Dim i As Integer
Select Case st
  Case "M1": i = 1
  Case "P1": i = 2
  Case "BM1": i = 3
End Select
转换 = i
End Function