Range座標文字をカラムindex値に変換する

＜分類：値変換＞
＜使用例：Rangeの座標文字列からカラムindex値に変換する＞
＜プログラム例＞

Sub 呼び出し()
   Dim s As String
   Dim レンジ As String
   
   レンジ = "B4"
   
   s = 共通_conv_Rx(レンジ)
   MsgBox ("カラム(x座表)は" & s & "です")

End Sub

Function 共通_conv_Rx(p1)
   
   共通_conv_Rx = Range(p1).Column
   
End Function