How to Trim a string

**nilem** · 01-16-2013, 10:58 AM

for example

Sub ert()
Dim s As String, txt As String
s = ActiveCell.Value
With CreateObject("VBScript.RegExp")
    .Pattern = "\$[0-9]+,?[0-9]+" ' .Pattern = "\$\d+,?\d+"
    If .Test(s) Then
        txt = .Execute(s)(0)
    End If
    MsgBox txt
End With
End Sub

**sugaprasad** · 01-16-2013, 12:34 PM

Originally Posted by nilem

for example

Sub ert()
Dim s As String, txt As String
s = ActiveCell.Value
With CreateObject("VBScript.RegExp")
    .Pattern = "\$[0-9]+,?[0-9]+" ' .Pattern = "\$\d+,?\d+"
    If .Test(s) Then
        txt = .Execute(s)(0)
    End If
    MsgBox txt
End With
End Sub

Thank You for the reply. I posted my concern in the previous post.Please let me know if you need any additional inputs