Dim As String q="Dim As String q=:?Left(q,16);Chr(34);q;Chr(34);Mid(q,17)":?Left(q,16);Chr(34);q;Chr(34);Mid(q,17)