drawing a line under a string or integer?

It should look like this:

Public Sub WriteUnderline(x As String)

Now it also works for strings.