I am running the VB sample code but it does not work. It errors out saying you cannot set precision for a text field but precision is not set. I was looking for working example.

Private Sub createCustomFieldSample()
        'Verify that we are already authenticated, if not
        'call the login function to do so
        If Not loggedIn Then
            If Not login() Then
                Return
            End If
        End If
        Try
            Console.WriteLine(vbCrLf & "This sample will create a new Text field on the Lead object.")
            Console.ReadLine()
            Console.Write("Enter the name that you would like for the field: ")
            Dim fieldName As String = Console.ReadLine()
            If fieldName.Length = 0 Then
                Console.Write("No name was entered for the field, so we are exiting this sample.")
                Console.ReadLine()
                Return
            End If
            Dim cf As CustomField = New CustomField()
            cf.description = "Simple text field from API"
            cf.fullName = "Lead." & fieldName & "__c"
            Console.Write("Enter a label for the field: ")
            Dim fieldLabel As String = Console.ReadLine()
            If fieldLabel.Length = 0 Then
                fieldLabel = "Sample Field"
            End If
            cf.label = fieldLabel
            cf.length = 50
            cf.type = apexMetadata.FieldType.Text

            Dim mBinding As MetadataService = New MetadataService()
            mBinding.SessionHeaderValue = New apexMetadata.SessionHeader()
            mBinding.SessionHeaderValue.sessionId = binding.SessionHeaderValue.sessionId
            mBinding.Url = binding.Url.Replace("/u/", "/m/")

            Dim asyncResult As AsyncResult = mBinding.create(New Metadata() {cf})(0)

            Do While asyncResult.state = AsyncRequestState.InProgress

                Thread.Sleep(asyncResult.secondsToWait * 1000)
                Console.WriteLine("Checking status..." & vbCrLf & vbTab & "State:" & asyncResult.state & vbCrLf & vbTab & "Status: " & asyncResult.statusCode & vbCrLf & vbTab & "Seconds to wait: " & asyncResult.secondsToWait)
                asyncResult = mBinding.checkStatus(New String() {asyncResult.id})(0)
            Loop
            If asyncResult.state = AsyncRequestState.Completed Then
                Console.Write("Custom object has been created. " & vbCrLf & vbCrLf & "Use the describe sobject sample to see your object is not listed.")
                Console.ReadLine()
            End If

        Catch ex As Exception
            Console.WriteLine("\nFailed to create object: " & vbCrLf & ex.Message)
            Console.WriteLine("\nHit return to continue...")
            Console.ReadLine()
        End Try
    End Sub