How to take cell with custom format and assign to variable as text (as appears in cell)

Not exactly sure what you want to do but this would put the value from the cell as it's formatted into the variable.

myData = Range("A1").Text