Get numbers only from each line in textbox

[sharky12345]

I have a textbox in a userform which has multiple lines of values - the values are strings mixed of text and numbers, (the numbers are always in one block as below). I need to extract the numbers only and separate them with a slash if someone can assist please?

List example;

UK 789435 TEST
GB 648563 TEST2

Result example;

789435 / 648563

Thanks all

 

[dmt32]

Hi
see if this will work for you

Private Sub CommandButton1_Click()
    Dim strText()   As String, strNumber As String
    Dim Word        As Variant
    
    strText = Split(TextBox1.Text, " ")
    For Each Word In strText
        If IsNumeric(Word) Then strNumber = strNumber & Word & " / "
    Next
    
    MsgBox Mid(strNumber, 1, Len(strNumber) - 3)
    
End Sub

Dave

 

[sharky12345]

Hi, thanks - that works!

The only issue I have is that I've just tested it with loads of numbers, one of which is '2900' and it's cutting the last zero off, leaving me with '290' - any idea why that would be?

 

[dmt32]

one of which is '2900' and it's cutting the last zero off, leaving me with '290' - any idea why that would be?

MsgBox Mid(strNumber, 1, Len(strNumber) - 3)

Change value 3 shown to 2

Dave

 

[sharky12345]

Thanks Dave!