すみません質問です
全角数字を半角に置換するvbsの関数を拾ってきたんですけど
これApsalyで使うにはどうしたらいいでしょうか？

Function funcConv_ZenHan(sStr)
sZen = "０１２３４５６７８９"
sHan = "0123456789"
funcConv_ZenHan = ""
If Len(sStr) > 0 Then
For i = 1 to Len(sStr)
StrBuf = Mid(sStr, i, 1)
If InStr(sZen, StrBuf) <> 0 Then
funcConv_ZenHan = funcConv_ZenHan & Mid(sHan, InStr(sZen, StrBuf), 1)
Else
funcConv_ZenHan = funcConv_ZenHan & StrBuf
End If
Next
Else
funcConv_ZenHan = Str
End If
End Function

sStrにApsaly.GetSelText()を入れてもエラーが出ます