Hola, cuando dices el ancho de linea creo que te refieres al alto.
Para contar las líneas que tiene un TextBox Multiline, prueba con la API SendMessage, te pongo un ejemplo:
Código:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, lParam As Any) As Long
Const EM_GETLINECOUNT = &HBA
Private Sub Command1_Click()
Dim NumLineas As Integer
NumLineas = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0&, ByVal 0&)
MsgBox "El TextBox Multiline tiene " & NumLineas & " líneas"
End Sub
Un saludo