Jag antar att du använder InputBox?

Då har du två alternativ:

1. Gör så att man kan skriva in tre värden samtidigt, men separerat med något tecken, typ "2008-01-01, 123456, NJ". Då får du först dela upp strängen i tre delar mha:

arr = Split(str, ",")Och sen kolla att det faktiskt blev tre värden med:

If IsArray(arr) Then
    If Ubound(arr)-Lbound(arr) + 1 = 3 Then
        'Gör något med arr(0), arr(1), och arr(2)
    End If
End If

2. Det är inte så snyggt, så då kan du istället göra en egen UserForm.. Lite mer jobb; återkom om du provar och inte får ordning på det.