Variable text/numbers between fixed text in in inputbox

Hi I need help to make an inputbox, where the input is between fixed text.


X in red are fixed text, which will always be there.

RFN-1303011153JVHN are the number i want to put in the inputbox. And that number can be variable

Its important that all spaces will be keept intact in the string, because i have to use this to capture a window.

The code look like this now without any input box

Public Sub Test()
     Dim c As clsAPI
     Set Coll = New Collection
     Set c = New clsAPI
     c.FindWindowCaption "XXXXXX XXXXXX RFN-1303011153JVHN - XXX XXXXX XXXXX"
    If c.FoundWindow Then
        c.SendString 43, Sheets(2).Range("B2").Value
        c.SendString 44, Sheets(2).Range("B3").Value
        End If
    End Sub

Sincerely

Abjac