Public Function inarray(ByVal array() As String, ByVal string1 As String, Optional ByVal start As Integer = 0) As Integer
        For i = 0 To array.GetLength(0) - 1
            If array(i) = string1 Then
                inarray = i
                Exit Function
            End If
        Next
        inarray = 0
    End Function