Bad Processor
11-16-2008, 07:40 PM
I get error 13 (type mismatch) on this command:
pa = Split(et, ",", , vbTextCompare)
any help?
the rest of the sub:
Dim pa(), ct, et As String
et = ActiveForm.rtfText.Text
pa = Split(et, ",", , vbTextCompare)
ct = ""
For x = 1 To UBound(pa)
ct = ct + CStr(Chr(pa(x)))
Next x
ActiveForm.rtfText.Text = ct
Thanks.
EDIT: Found solution.
-- BadProcessor
pa = Split(et, ",", , vbTextCompare)
any help?
the rest of the sub:
Dim pa(), ct, et As String
et = ActiveForm.rtfText.Text
pa = Split(et, ",", , vbTextCompare)
ct = ""
For x = 1 To UBound(pa)
ct = ct + CStr(Chr(pa(x)))
Next x
ActiveForm.rtfText.Text = ct
Thanks.
EDIT: Found solution.
-- BadProcessor