I have string like this: JK-501-3556-25-A-03#C
I would to extract the middle part without dash which suppose to look like this:355625
I wrote the code this way, but the string extracted looks like this: 3556-25355625
For i = 1 To Len(cbPN.Text) If Mid(cbPN.Text, i, 1) = "-" Then Else strExtract = strExtract & Mid(cbPN.Text, i, 1) End If Next
Please anyone outhere help me to solve this problem. Thank you.