Getting data from a notepad file

Hello Jenkins27,

The only change I made was to the UserForm CommandButton code.

Private Sub PartNumberFormDone_Click()

    Dim Data As Variant
    Dim Rng As Range
    
        Data = ReadData(TextBox1.Value)
        
        If IsEmpty(Data) Then
            TextBox1.SelStart = 0
            TextBox1.SelLength = Len(TextBox1.Value)
            TextBox1.SetFocus
        Else
            Range("A3", Cells(Rows.Count, "A").End(xlUp)).ClearContents
            Range("A3").Resize(UBound(Data) + 1) = TextBox1
            Set Rng = Range("B3:C3").Resize(UBound(Data) + 1)
            Rng.Value = Data
        End If
        
End Sub