Private Sub Form_Load()

Debug.Print
Debug.Print "Compound Value Unit"
Debug.Print "--------------------------------"

sString = CreateString("Methane:", "L", 2, "130.001", "D", 20, _
"uL", "R", 32)
Debug.Print sString

sString = CreateString("Ethane:", "L", 2, "43.887", "D", 20, _
"uL", "R", 32)
Debug.Print sString

End Sub