Vb.net convert number to String

I'm new with VB.Net but i'm currently stuck in my code.

I need to do the following for a assignment: "Use a class that contains a number of properties to remember the maximum length. This must then split the line according to the maximum length"

Class 1
     Public Function Namelength() As String
            Dim WineLength As Integer
            WineLength= 0
            WineLength= ("Name").Length
            Dim WineName As String
    
    
            If WineLength> WineLength+ 2 Then
                Namelength= WineLength+ 2
                            WinLength = CStr(WineName)
    
            Else
                Namelength= WineLength
            End If
       
            Return Namelength
        End Function

But when I run this, i get only digits.

Thanks in advance!