Vba input.

Not quite clear where you would like to get the "part number" from - i assume its from some cells Say A1

Can we not use a simple command button on the form and put this code in there

Private Sub CommandButton1_Click()
'MsgBox ThisWorkbook.Name
'Exit Sub
Dim shtname As Worksheet ' name of the sheet
Set shtname = ThisWorkbook.Worksheets("Sheet2")
     If ThisWorkbook.Worksheets("Sheet2").Range("A1").Value = "1234" Then
       MsgBox "DO NOT USE"
       Exit Sub
    Else
        TextBox1.Text = ThisWorkbook.Worksheets("Sheet2").Range("A1").Value

    End If
End Sub

Try this

If it doesn't work please attach the spreadsheet

Private Sub CommandButton1_Click()
'MsgBox ThisWorkbook.Name
'Exit Sub
Dim shtname As Worksheet ' name of the sheet
Set shtname = ThisWorkbook.Worksheets("Sheet2")
     If ThisWorkbook.Worksheets("Sheet2").Range("A1").Value = "1234" Then
       MsgBox "DO NOT USE"
       Exit Sub
    Else
Sub ListBox_LoadRange()

Dim cell As Range

'Load to ListBox
set sh=thisworkbook 'change the locatoin of the workbook to suit
  For Each cell In sh.Worksheets("Sheet1").Range("A1:A6") 
    ListBox1.AddItem cell.Value
  Next cell
        TextBox1.Text = Listbox1.selected
msgbox "The value selected is " & sh.Worksheets("Sheet1").Range("B1").value
End Sub

    End If
End Sub

Administrative Note:

Please don't quote entire posts unnecessarily. They clutter threads and make them hard to read.
Use the "Quick reply" instead
Thanks

I'm going to start with a cell formula approach, then give the vba equivalent.

The easiest place to start would be to start with a reference table that contains your logic.

ie in columns
"A" "B"
1223 "Check Width"
1234 "Do Not Use"
1134 "Use with caution"

Lets say that the part number is given in cell "C1".
If you use a cell to place your text messages you could use the formula

Formula:

=IFERROR(INDEX(A1:B3, MATCH(C1, A1:A3, 0), 2),"No Warning") 

If you wanted that as a vba code, such as a function returning a text, the same approach would work

Private Function getWarning(partNum As String) As String
Dim rng As Range
    Set rng = Sheet1.Range("A1:B3")
    
    With Application.WorksheetFunction
        getWarning = .IfError(.Index(rng, .Match(partNum, rng.Columns(2), 0), 2), "No Warning")
    End With
End Function

Or using a vba error handling approach

Private Function getWarning(partNum As String) As String
Dim rng As Range
    On Error GoTo errHandle
    Set rng = Sheet1.Range("A1:B3")
    With Application.WorksheetFunction
        getWarning = .Index(rng, .Match(partNum, rng.Columns(2), 0), 2)
    End With
    Exit Function
    
errHandle:
    getWarning = "No Warning"
End Function

hence whenever if you want to set the warning in textbox2 when the value of textbox1 changes in a userform

Private Sub textbox1_change()
    textbox2.Value = getWarning
End Sub

I hope that this helps

@saravnepali

If it doesn't work please send me the spreadsheet

Please do not ask members to send information to you personally. All information on this forum must stay public and accessible to all our members.

Apologies

I still meant through the forum.

I will try to maintain the wording accordingly.