Auto populate user Id to the userform

Never good to unload the form to clear so replace code for clear button

Private Sub ClearCradles_Click()
VinNumber = ""
VehicleMake.ListIndex = -1
StockLocation.ListIndex = -1
DateIn = ""
VehicleType.ListIndex = -1
GeoReference = ""
DateOute = ""
PodReference = ""
ReceivingDealer.ListIndex = -1
Notes = ""
EnterDate = ""
CradleType.ListIndex = -1
Reference = ""
CradlesIn = ""
CradlesOut = ""
DistInvNo = ""
StorageInvNo = ""
CheckedDate = ""
CheckedBy.ListIndex = -1
End Sub

Kind regards
Leo