String Abribiation in vb.net

Function colldbabrivatename(ByVal sstring As String) As String
        sstring = Replace(sstring, "  ", "")
        sstring = Trim(sstring)
        Dim abribiatedata = Split(sstring, Space(1))
        If UBound(abribiatedata) > 0 Then
            Dim abribiateform As String = ""
            For i As Integer = LBound(abribiatedata) To UBound(abribiatedata)
                If abribiatedata(i).Substring(0, 1) = "[" Or abribiatedata(i).Substring(0, 1) = "(" Then Exit For
                If Len(abribiatedata(i)) > 1 Then
                    If abribiateform = "" Then
                        abribiateform = abribiatedata(i).Substring(0, 1)
                        abribiateform1 = abribiatedata(i).Substring(0, 1)
                    Else
                        abribiateform = abribiateform & "" & abribiatedata(i).Substring(0, 1)
                        abribiateform1 = abribiateform1 & " " & abribiatedata(i).Substring(0, 1)
                    End If
                Else
                    If abribiateform = "" Then
                        abribiateform = abribiatedata(i)
                        abribiateform1 = abribiatedata(i)
                    Else
                        abribiateform = abribiateform & "" & abribiatedata(i)
                        abribiateform1 = abribiateform1 & " " & abribiatedata(i)
                    End If
                End If
            Next
            sstring = abribiateform
        End If

        colldbabrivatename = sstring
    End Functio