Thanks for the help, I finally got it to work last night, I deleted this
portion:

Code Block

If IsNumeric(RowNumber.Text) Then

Else
ClearData
MsgBox "Illegal row number"
Exit Sub

End If

If r 1 And r <= LastRow Then

Code Block

So basically I had the right code, just had a little too much in there!
Here's what I ended up with that works great!

Code Block

Private Sub GetData()
Dim r As Long

r = (RowNumber.Text)

EquipmentID.Text = Cells(r, 1)
Nomenclature.Text = Cells(r, 2)
InspType.Text = Cells(r, 3)
InspInt.Text = Cells(r, 4)
DateLastInsp.Text = FormatDateTime(Cells(r, 5), vbShortDate)
NextInspDue.Text = FormatDateTime(Cells(r, 6), vbShortDate)
DaysUntilDue.Text = Cells(r, 7)
End Sub

Code Block

Hope this can help somebody else!

~Lucas