怎么弄显示 ：“程序”运行完成所要的时间

想显示 ：“程序”运行完成所要的时间，怎么弄，谢谢！

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim sj As Double
        sj = Timer   

        程序

        MsgBox(Timer - sj)
    End Sub