User Form Text Box running Function - How to format number?

[CRIMEDOG]

I have a user box running this code. Because the numbers it pulls in for TxtA - TxtD are the result of a formula, they show on the user form as having 8or 9 decimal how do I change it to Text=Format("0.00")

Private Sub CboPart_Change()
If CboPart = "" Then Exit Sub
If Selection <> "" Then Exit Sub

Me.TxtMkt = WorksheetFunction.VLookup(Me.CboPart, Sheets("Parts").Range(CboMainframe.Text), 4, False)
Me.TxtPartNo = WorksheetFunction.VLookup(Me.CboPart, Sheets("Parts").Range(CboMainframe.Text), 5, False)
Me.TxtList = WorksheetFunction.VLookup(Me.CboPart, Sheets("Parts").Range(CboMainframe.Text), 9, False)
Me.TxtReq = WorksheetFunction.VLookup(Me.CboPart, Sheets("Parts").Range(CboMainframe.Text), 10, False)
Me.TxtA = WorksheetFunction.VLookup(Me.CboPart, Sheets("Parts").Range(CboMainframe.Text), 15, False)
Me.TxtB = WorksheetFunction.VLookup(Me.CboPart, Sheets("Parts").Range(CboMainframe.Text), 16, False)
Me.TxtC = WorksheetFunction.VLookup(Me.CboPart, Sheets("Parts").Range(CboMainframe.Text), 17, False)
Me.TxtD = WorksheetFunction.VLookup(Me.CboPart, Sheets("Parts").Range(CboMainframe.Text), 18, False)

End Sub

Thanks!