Function QuotedPrintableDecode(strText) 'As String
Dim strBuffer 'As String
Dim lngPosition 'As Long
	For lngPosition = 1 To Len(strText)
		If Mid(strText, lngPosition, 1) = "=" Then
			strBuffer = strBuffer & Chr("&H" & Mid(strText, lngPosition + 1, 2))
			lngPosition = lngPosition + 2
		Else
			strBuffer = strBuffer & Mid(strText, lngPosition, 1)
		End If
	Next
	QuotedPrintableDecode = strBuffer
End Function

Function QuotedPrintableEncode(strString) 'As String
Dim strBuffer
Dim lngPos
	For lngPos = 1 To Len(strString)
		strBuffer = strBuffer & "=" & Right("0" & Hex(Asc(Mid(strString, lngPos, 1))), 2)
	Next
	QuotedPrintableEncode = strBuffer
End Function