Why you got a byval in there ?

VB Code:
  1. Text1.Text = DataFormat(Text1.Text, Phone)