strange it runs ok for me
change from
CustomerID.Text = FormatNumber(Cells(r, 1), 0)
to
CustomerID.Text = Cells(r, 1).value
text to number format?