Imports System

Public Module Module1

    Public Sub Main()

        Dim vcReleasrDateQty as string = "04/04/2019 (50)"

        Console.WriteLine(Convert.ToDateTime(vcReleasrDateQty.Substring(0, vcReleasrDateQty.IndexOf("(") - 1)))

        Console.WriteLine(Convert.ToDouble(vcReleasrDateQty.Substring(vcReleasrDateQty.IndexOf("(") + 1, vcReleasrDateQty.length - vcReleasrDateQty.IndexOf(")"))))

    End Sub

End Module